home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CHPSL.z / CHPSL
Text File  |  1996-03-14  |  1KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCHHHHPPPPSSSSLLLL((((3333FFFF))))                                                            CCCCHHHHPPPPSSSSLLLL((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CHPSL   - CHISL solves the complex Hermitian system A * X = B using the
  10.      factors computed by CHPFA.
  11.  
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  14.       SUBROUTINE CHPSL(AP,N,KPVT,B)
  15.  
  16. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  17.      On Entry
  18.  
  19.      AAAAPPPP COMPLEX(N*(N+1)/2)
  20.         the output from CHPFA.
  21.  
  22.      NNNN INTEGER
  23.         the order of the matrix  A .  KVPT    INTEGER(N)
  24.         the pivot vector from CHPFA.
  25.  
  26.      BBBB COMPLEX(N)
  27.         the right hand side vector.  On Return
  28.  
  29.      BBBB the solution vector  X . Error Condition
  30.  
  31.      AAAA division by zero may occur if  CHPCO  has set RCOND .EQ. 0.0 or  CHPFA
  32.      has set INFO .NE. 0  .  To compute  INVERSE(A) * C  where  C  is a matrix
  33.      with  P  columns
  34.         CALL CHPFA(AP,N,KVPT,INFO)
  35.         IF (INFO .NE. 0) GO TO ...
  36.         DO 10 J = 1, P
  37.         CALL CHPSL(AP,N,KVPT,C(1,J)) 10 CONTINUE LINPACK.  This version dated
  38.      08/14/78 .  James Bunch, Univ. Calif. San Diego, Argonne Nat. Lab.
  39.      Subroutines and Functions BLAS CAXPY,CDOTC Fortran CONJG,IABS
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.